home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / MCSECURE.ZIP / _CRC.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-25  |  3.8 KB  |  124 lines
  1. VERSION 4.00
  2. Begin VB.Form frmCrc 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Crc"
  5.    ClientHeight    =   4245
  6.    ClientLeft      =   1440
  7.    ClientTop       =   2265
  8.    ClientWidth     =   6675
  9.    Height          =   4590
  10.    Left            =   1410
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   4245
  15.    ScaleWidth      =   6675
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   1950
  18.    Width           =   6735
  19.    Begin VB.TextBox Text1 
  20.       Height          =   285
  21.       Left            =   1890
  22.       TabIndex        =   3
  23.       Top             =   3510
  24.       Width           =   4695
  25.    End
  26.    Begin VB.ListBox List1 
  27.       Height          =   2955
  28.       Left            =   90
  29.       TabIndex        =   1
  30.       TabStop         =   0   'False
  31.       Top             =   360
  32.       Width           =   6495
  33.    End
  34.    Begin VB.Label Label3 
  35.       Caption         =   "Crc is"
  36.       Height          =   195
  37.       Left            =   90
  38.       TabIndex        =   4
  39.       Top             =   3900
  40.       Width           =   1725
  41.    End
  42.    Begin VB.Label Label4 
  43.       Appearance      =   0  'Flat
  44.       BackColor       =   &H80000005&
  45.       BorderStyle     =   1  'Fixed Single
  46.       ForeColor       =   &H80000008&
  47.       Height          =   285
  48.       Left            =   1890
  49.       TabIndex        =   5
  50.       Top             =   3870
  51.       Width           =   4695
  52.    End
  53.    Begin VB.Label Label2 
  54.       Caption         =   "Enter a &string "
  55.       Height          =   195
  56.       Left            =   90
  57.       TabIndex        =   2
  58.       Top             =   3540
  59.       Width           =   1725
  60.    End
  61.    Begin VB.Line Line1 
  62.       BorderColor     =   &H00FFFFFF&
  63.       BorderStyle     =   6  'Inside Solid
  64.       BorderWidth     =   2
  65.       X1              =   0
  66.       X2              =   6660
  67.       Y1              =   3420
  68.       Y2              =   3420
  69.    End
  70.    Begin VB.Label Label1 
  71.       Caption         =   "Crc Samples"
  72.       Height          =   195
  73.       Left            =   90
  74.       TabIndex        =   0
  75.       Top             =   90
  76.       Width           =   6495
  77.    End
  78. Attribute VB_Name = "frmCrc"
  79. Attribute VB_Creatable = False
  80. Attribute VB_Exposed = False
  81. Option Explicit
  82. Private Sub Form_Load()
  83.    Dim i          As Integer
  84.    Dim Tmp1       As String
  85.    Dim Tmp2       As String
  86.    Dim Data       As String
  87.    Tmp1 = "Crc of '"
  88.    Tmp2 = "' is '"
  89.    List1.Clear
  90.    Data = "1"
  91.    List1.AddItem Tmp1 + Data + Tmp2 & cStringCRC32(Data) & "'"
  92.    Data = "12"
  93.    List1.AddItem Tmp1 + Data + Tmp2 & cStringCRC32(Data) & "'"
  94.    Data = "123"
  95.    List1.AddItem Tmp1 + Data + Tmp2 & cStringCRC32(Data) & "'"
  96.    Data = "1234"
  97.    List1.AddItem Tmp1 + Data + Tmp2 & cStringCRC32(Data) & "'"
  98.    Data = "12345"
  99.    List1.AddItem Tmp1 + Data + Tmp2 & cStringCRC32(Data) & "'"
  100.    Data = "123456"
  101.    List1.AddItem Tmp1 + Data + Tmp2 & cStringCRC32(Data) & "'"
  102.    Data = "1234567"
  103.    List1.AddItem Tmp1 + Data + Tmp2 & cStringCRC32(Data) & "'"
  104.    List1.AddItem ""
  105.    Data = "ABCDEFG"
  106.    List1.AddItem Tmp1 + Data + Tmp2 & cStringCRC32(Data) & "'"
  107.    Data = "ABCDEF"
  108.    List1.AddItem Tmp1 + Data + Tmp2 & cStringCRC32(Data) & "'"
  109.    Data = "ABCDE"
  110.    List1.AddItem Tmp1 + Data + Tmp2 & cStringCRC32(Data) & "'"
  111.    Data = "ABCD"
  112.    List1.AddItem Tmp1 + Data + Tmp2 & cStringCRC32(Data) & "'"
  113.    Data = "ABC"
  114.    List1.AddItem Tmp1 + Data + Tmp2 & cStringCRC32(Data) & "'"
  115.    Data = "AB"
  116.    List1.AddItem Tmp1 + Data + Tmp2 & cStringCRC32(Data) & "'"
  117.    Data = "A"
  118.    List1.AddItem Tmp1 + Data + Tmp2 & cStringCRC32(Data) & "'"
  119.    Text1.Text = "mc security"
  120. End Sub
  121. Private Sub Text1_Change()
  122.    Label4.Caption = cStringCRC32(Text1.Text)
  123. End Sub
  124.